﻿Public Class Estadisticas

    Private Sub Estadisticas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            Me.CargarGrafico()

      

        Catch ex As Exception

        End Try



    End Sub

    Private Sub CargarGrafico()
        Dim appPath = String.Concat("file:///", Application.StartupPath, "/Column2D.swf")
        appPath = appPath.Replace("\", "/")
        Dim data As String = String.Concat(appPath, "?dataXML=<chart caption='monthly unit sales' xaxisname='month' yaxisname='units' ",
                                        "showvalues='0' formatnumberscale='0' showborder='1'> ",
                                        "<set label='jan' value='462' /> ",
                                        "<set label='feb' value='857' /> ",
                                        "<set label='mar' value='671' /> ",
                                        "<set label='apr' value='494' /> ",
                                        "<set label='may' value='761' /> ",
                                        "<set label='jun' value='960' /> ",
                                        "<set label='jul' value='629' /> ",
                                        "<set label='aug' value='622' /> ",
                                        "<set label='sep' value='376' /> ",
                                        "<set label='oct' value='494' /> ",
                                        "<set label='nov' value='761' /> ",
                                        "<set label='dec' value='960' /> ",
                                        "</chart>"
                                        )
        ChartContainer.Movie = data
    End Sub


End Class